inherited fCadProduto: TfCadProduto
  Top = 198
  Caption = 'Cadastro de Produto'
  ClientHeight = 144
  ClientWidth = 297
  OldCreateOrder = True
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 13
  object Label2: TLabel [0]
    Left = 8
    Top = 8
    Width = 48
    Height = 13
    Caption = 'Descri'#231#227'o'
    FocusControl = dbDescricao
  end
  object Label4: TLabel [1]
    Left = 128
    Top = 48
    Width = 24
    Height = 13
    Caption = 'Valor'
  end
  object Label1: TLabel [2]
    Left = 8
    Top = 48
    Width = 27
    Height = 13
    Caption = 'Custo'
  end
  inherited GroupBox1: TGroupBox
    Left = -16
    Top = 96
    TabOrder = 6
  end
  inherited BitBtn1: TBitBtn
    Left = 128
    Top = 112
    ModalResult = 0
    TabOrder = 3
    OnClick = BitBtn1Click
  end
  inherited BitBtn2: TBitBtn
    Left = 216
    Top = 112
    TabOrder = 4
    OnClick = BitBtn2Click
  end
  object dbDescricao: TDBEdit
    Left = 8
    Top = 24
    Width = 281
    Height = 21
    CharCase = ecUpperCase
    DataField = 'DESCRICAO'
    DataSource = DataSource1
    TabOrder = 0
  end
  object dbValor: TRxDBCalcEdit
    Left = 128
    Top = 64
    Width = 105
    Height = 21
    DataField = 'VALOR_UNIT'
    DataSource = DataSource1
    DisplayFormat = '##,###,#0.00'
    NumGlyphs = 2
    TabOrder = 2
  end
  object checkAtivo: TCheckBox
    Left = 240
    Top = 64
    Width = 51
    Height = 17
    Caption = 'Ativo'
    TabOrder = 5
  end
  object RxDBCalcEdit1: TRxDBCalcEdit
    Left = 8
    Top = 64
    Width = 105
    Height = 21
    DataField = 'CUSTO_UNIT'
    DataSource = DataSource1
    DisplayFormat = '##,###,#0.00'
    NumGlyphs = 2
    TabOrder = 1
  end
  object DataSource1: TDataSource
    DataSet = dm.qryProduto
    Left = 72
    Top = 24
  end
  object GeraCodigo: TIBOQuery
    Params = <>
    DatabaseName = 'C:\Delphi7\Integrado\Dados\BANCO.GDB'
    IB_Connection = dm.base
    RecordCountAccurate = True
    SQL.Strings = (
      'select GEN_ID(GEN_PRODUTO_ID,1) PK FROM RDB$DATABASE')
    FieldOptions = []
    Left = 56
    Top = 114
    object GeraCodigoPK: TLargeintField
      FieldName = 'PK'
      ReadOnly = True
      Required = True
    end
  end
end
